home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / intuition / BoopsiClassNames.p < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.9 KB  |  42 lines
  1. pTempVar <- <primitive 110 5 >
  2. <primitive 112 pTempVar 1  " privateSetupDictionary " \
  3.   #( #[ 16r20 16r30 16r31 16rD0 16rF2 16r20 16r32 16r33 16rD0 16rF2 16r20 \
  4.         16r34 16r35 16rD0 16rF2 16r20 16r36 16r37 16rD0 16rF2 16r20 \
  5.         16r38 16r39 16rD0 16rF2 16r20 16r3A 16r3B 16rD0 16rF2 16r20 \
  6.         16r3C 16r3D 16rD0 16rF2 16r20 16r3E 16r3F 16rD0 16rF2 16r20 \
  7.         16r03 16r10 16r03 16r11 16rD0 16rF2 16r20 16r03 16r12 16r03 \
  8.         16r13 16rD0 16rF2 16r20 16r03 16r14 16r03 16r15 16rD0 16rF2 \
  9.         16r20 16r03 16r16 16r03 16r17 16rD0 16rF2 16r20 16r03 16r18 \
  10.         16r03 16r19 16rD0 16rF2 16r20 16r03 16r1A 16r03 16r1B 16rD0 \
  11.         16rF2 16r20 16r03 16r1C 16r03 16r1D 16rD0 16rF2 16rF5] \
  12.     #( #ROOTCLASS 'rootclass' #IMAGECLASS 'imageclass' #FRAMEICLASS \
  13.         'frameiclass' #SYSICLASS 'sysiclass' #FILLRECTCLASS 'fillrectclass' \
  14.         #GADGETCLASS 'gadgetclass' #PROPGCLASS 'propgclass' #STRGCLASS \
  15.         'strgclass' #BUTTONGCLASS 'buttongclass' #FRBUTTONCLASS 'frbuttonclass' \
  16.         #GROUPGCLASS 'groupgclass' #ICCLASS 'icclass' #MODELCLASS 'modelclass' \
  17.         #ITEXTICLASS 'itexticlass' #POINTERCLASS 'pointerclass'  )) >
  18.  
  19. <primitive 112 pTempVar 2  " privateSetup " \
  20.   #( #[ 16r10 16rA1 16rF7 16r09 16r20 16r80 16r00 16r60 16r20 16r80 16r01 \
  21.         16rF2 16r5D 16rF2 16r20 16rF3] \
  22.     #( #privateNew #privateSetupDictionary  )) >
  23.  
  24. <primitive 112 pTempVar 3  " new " \
  25.   #( #[ 16r20 16r80 16r00 16rF3] \
  26.     #( #privateSetup  )) >
  27.  
  28. <primitive 112 pTempVar 4  " privateNew " \
  29.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3] \
  30.     #( #new  )) >
  31.  
  32. <primitive 112 pTempVar 5  " isSingleton " \
  33.   #( #[ 16r5B 16rF3] \
  34.     #(  )) >
  35.  
  36. <primitive 98 #BoopsiClassNames \
  37.   <primitive 97 #BoopsiClassNames #Dictionary #AmigaTalk:Intuition/BoopsiClassNames.st \
  38.    #(  #uniqueInstance ) \
  39.    #( #privateSetupDictionary #privateSetup #new #privateNew #isSingleton  ) \
  40.   pTempVar 2 5 > #isSingleton >
  41.  
  42.